home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / data / awkscrpt / loan.awk < prev    next >
Text File  |  1995-02-06  |  646b  |  42 lines
  1. # 元利均等払い返済額の計算
  2. # m:借入額［万円］ r:年利［％］ year:返済年数［年］
  3. BEGIN {
  4.     m = 100
  5.     r = 4.35
  6.     year = 35
  7.     input()
  8.     calc()
  9. }
  10.  
  11. {
  12.     input()
  13.     calc()
  14. }
  15.  
  16. function input() {
  17.     printf("借入額(%d)［万円］:", m)
  18.     getline
  19.     m = $0 ? $0 + 0 : m
  20.     printf("年利(%.2f)［％］:", r)
  21.     getline
  22.     r = $0 ? $0 + 0 : r
  23.     printf("返済年数(%d)［年］:", year)
  24.     getline
  25.     year = $0 ? $0 + 0 : year
  26. }
  27.  
  28. function calc() {
  29.     g0 = m * 10000
  30.     n = 12 * year
  31.     r12 = r / 1200
  32.     a = 1 + r12
  33.     an = beki(a,n)
  34.     k = g0 * an * r12 / (an - 1)
  35.     printf("\n月々の返済額は %.2f 円\n", k)
  36. }
  37.  
  38. function beki(x,n ,y) {
  39.     y = n * log(x)
  40.     return exp(y)
  41. }
  42.